1 REM "       [176][192][192][192][192][192][192][192][192][192][192][192][192][174]          "
2 REM "       [221]KALEIDOSCOPE[221]          "
3 REM "       [173][192][192][192][192][192][192][192][192][192][192][192][192][189]          "
4 REM
5 REM   TAKEN FROM VOL 4, ISS 3
6 REM  OF THE TRANSACTOR MAGAZINE
7 REM  COLOUR FOR THE C-64 ADDED BY
8 REM          PAUL ROYLE
9 REM
10 PRINT"[147]";:C=0:
11 POKE53280,0:  REM BORDER BLACK
12 POKE53281,0:  REM BACKGROUND BLACK
13 REM ****** SELECT CHARACTERS *******
14 FORJ=0TO7:READCH(J):NEXT
15 DATA160,127,102,64,91,93,58,32
16 REM ******* SELECT COLOURS ********
17 FORJ=0TO7:READCL(J):NEXT
18 DATA2,7,6,4,5,8,14,13
19 SC=1024:COLS=40:LINES=25:CS=54272
20 MX=INT(CO/2-1):LC=LI/CO:CK=CO-.0001
21 FORH=3TO50:FORI=1TOMX:FORJ=1TOMX
22 K=J+I
23 C=CH((J*3/(I+3)+I*H/12)AND7):Q=CL((J*3/(I*3)+I*H/12)AND7)
24 S1=SC+CO*INT(LC*I):S2=SC+CO*INT(LC*K)
25 S3=SC+CO*INT(LC*(CK-I)):S4=SC+CO*INT(LC*(CK-K))
26 POKEI+S2+CS,Q:POKEI+S2,C:POKECO-I+S2+CS,Q:POKECO-I+S2,C
27 POKEI+S4+CS,Q:POKEI+S4,C:POKECO-I+S4+CS,Q:POKECO-I+S4,C
28 POKEK+S3+CS,Q:POKEK+S3,C:POKECO-K+S3+CS,Q:POKECO-K+S3,C
29 POKEK+S1+CS,Q:POKEK+S1,C:POKECO-K+S1+CS,Q:POKECO-K+S1,C
30 NEXTJ,I,H
31 GOTO21